home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / moonphas.tar / moon next >
Text File  |  1990-08-24  |  2KB  |  97 lines
  1. %%HP: T(3)A(D)F(.);
  2. DIR
  3.   MPHASE
  4.     \<< RCLF -31 SF
  5. DEG ERASE { # 0d
  6. # 0d } PVIEW {
  7. # 64d # 28d } # 26d
  8. 0 360 ARC 26 28
  9. MFRAC MPLOT MFINI 7
  10. FREEZE STOF
  11.     \>>
  12.   MTIME
  13.     \<< MFRAC \-> X
  14.       \<<
  15.         IF X .25 <
  16.         THEN "NM+"
  17.         ELSE
  18.           IF X .5 <
  19.           THEN
  20. "FQ+"
  21.           ELSE
  22.             IF X
  23. .75 <
  24.             THEN
  25. "FM+"
  26.             ELSE
  27. "LQ+"
  28.             END
  29.           END
  30.         END X
  31.       \>> .25 MOD
  32. 42532 * SWAP OVER
  33. 1440 / IP \->STR +
  34. "d " + SWAP 1440
  35. MOD SWAP OVER 60 /
  36. IP \->STR + "h " +
  37. SWAP 60 MOD SWAP
  38. OVER IP \->STR + "m "
  39. + SWAP FP 60 * IP
  40. \->STR + "s" +
  41.     \>>
  42.   MFRAC
  43.     \<< 1.121975 DATE
  44. DDAYS TIME 4.21
  45. HMS- HMS\-> 24 / +
  46. 1440 * 42532 / FP
  47.     \>>
  48.   FLIP
  49.     \<< PICT RCL NEG
  50. PICT STO
  51.     \>>
  52.   MPLOT
  53.     \<< \-> RA MI F
  54.       \<<
  55.         IF F .5 <
  56.         THEN F 360
  57. * COS RA * RA
  58.         ELSE RA NEG
  59. F .5 - 360 * COS RA
  60. *
  61.         END \-> L R
  62.         \<< 1 0
  63.           FOR x x
  64. ACOS SIN DUP MI x
  65. RA * + L R MLINE MI
  66. x RA * - L R MLINE
  67. RA INV NEG
  68.           STEP
  69.         \>>
  70.       \>>
  71.     \>>
  72.   MLINE
  73.     \<< \-> SC LI L R
  74.       \<< SC L * 64 +
  75. R\->B LI R\->B 2 \->LIST
  76. SC R * 64 + R\->B LI
  77. R\->B 2 \->LIST LINE
  78.       \>>
  79.     \>>
  80.   MFINI
  81.     \<< { # 10d # 10d
  82. } PIXON { # 110d
  83. # 15d } PIXON {
  84. # 100d # 50d }
  85. PIXON { # 30d # 41d
  86. } PIXON { # 31d
  87. # 41d } PIXON FLIP
  88.     \>>
  89.   SLOFLIP
  90.     \<< 0 63
  91.       FOR l # 0d l
  92. R\->B 2 \->LIST # 130d
  93. l R\->B 2 \->LIST TLINE
  94.       NEXT
  95.     \>>
  96. END
  97.